home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / cnet / TrdWars23.lha / tw.uniconvert2.2 < prev    next >
Text File  |  1993-07-14  |  1KB  |  74 lines
  1. /*  TradeWars Universe Conversion --- April 25, 1993
  2.  
  3.     Converts 2.0x & 2.1x universe sector files to the new 2.2 format.
  4.     Run this once and ONLY ONCE!                                         */
  5.  
  6. options results
  7. signal on syntax
  8. t=transmit;s=sendstring
  9.  
  10. dir="pfiles:tradewars/universe/"
  11. dir2="pfiles:tradewars/ports/"
  12.  
  13. t "f1c3: TradeWars Universe Conversion Program for TW 2.2 :"
  14. s "n2c6Workingc7"
  15.  
  16. sec=0
  17.  
  18. loop:
  19. sec=sec+1;if sec>999 then signal endit
  20. if ~exists(dir"tws"sec) then signal loop
  21. call open(file,dir"tws"sec,"R")
  22. do x=1 to 30
  23.  old.x = readln(file)
  24. end
  25. call close(file)
  26. if left(old.21,1) ~="." & old.22 ~="0" then call makeport
  27. do x=1 to 9
  28.  new.x = old.x
  29. end
  30. new.10 = old.16
  31. new.11 = old.17
  32. new.12 = old.21
  33. new.13 = old.22
  34. new.14 = old.24
  35. new.15 = old.26
  36. new.16 = old.27
  37. new.17 = old.28
  38. new.18 = old.29
  39. new.19 = old.30
  40. call open(file,dir"tws"sec,"W")
  41. do x=1 to 19
  42.  call writeln(file,new.x)
  43. end
  44. call close(file)
  45. s "."
  46. signal loop
  47.  
  48. makeport:
  49. po.1 = old.18
  50. po.2 = old.23
  51. po.3 = old.20
  52. po.4 = old.19
  53. po.5 = old.10
  54. po.6 = old.11
  55. po.7 = old.12
  56. po.8 = old.13
  57. po.9 = old.14
  58. po.10 = old.15
  59. po.11 = 0
  60. call open(file,dir2"port."sec,"W")
  61. do x=1 to 11
  62.  call writeln(file,po.x)
  63. end
  64. call close(file)
  65. return
  66.  
  67. endit:
  68. t "n2c2Conversion complete!!"
  69. exit
  70.  
  71. syntax:
  72. t "n1c1Syntax error!"
  73. exit
  74.